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Guida par l’input dai pragramni varsiani VIC IO a C64 


Notate che i listati contengono "parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitaho", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colon. 
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Basketball 



• » • 


Si gioco in due: i giocatori rappresentano le due 
squadre (A e B) e, uno alla volta, manovrano 
col joystick un attaccante (raffigurato da un 
pallino giallo), che deve vedersela con cinque 
difensori (pallini viola), i quali cercano di con¬ 
trastarlo ostacolandolo. Il campo è un quadrato 
al centro dello schermo, e il canestro (uno so¬ 
lo, dato che si gioca a turno) è rappresentato 
da una 0 in alto al centro. Quando l'attac¬ 
cante si trova in linea col canestro (orizzontal¬ 
mente, verticalmente o diagonalmente) può ti¬ 
rare: a questo punto la palla, rappresentata 
da un puntino, parte. Il tiro si effettua premen¬ 
do il pulsante del joystick. 


5 DIMG(5,2):POKE37139,0 
10 POKE36879,25:POKB36878,15:L«7 
839:038 559 :SP“ 36876 :HT»1 :SV- 
1 

20 PRINT"{BLK}{CLR}{RVS}A{OPF}"S 
A;TAB(7)"-PUNTI-{ 3 SPAZI) 
{RVS}B{OFP}"SB:Q-2:IFHT-2THEN 
Q«19:SV«-1 

30 PRINT"{HOME}(GRN){ 2 GIU'}"TA 
B(Q)"{RVS}t"SPRINT"{RED} 

{HOME){ 4 GIU')-TEMPO- 00:00 
{ 5 SPAZI}{RVS}"HT 
40 PRINT"(BLU)(HOME){ 6 GIU'} 

{ 5 SPAZI}(< 11 8>}":P0RI-1T0 
12 :PRINTTAB(4)"[<M>]"TAB(16)* 
I<G>)":NEXT 

50 PRINT"{ 5 SPAZI)[< 11 T>]":PR 
INT"{GIU')(CYN}{RVS}***•* BAS 
KETBALL *****{OPP}"J:Z$«"0000 
00 " 

55 P-0 

60 D*1 : PORI«OTOl1 :FORJ“OTOl0:POR 
EC+22*I+J,4 :POKEL+22*I+J,32 :N 
EXT:NEXT 

70 PRINT"{BLK}{HOME}{ 7 GIU'}"TA 
B(10)"O":FORI-lTO5 
80 G(I,1)-INT(RND(0)*5):G(I,2)-I 
NT(RNO(0)*11):IPPEEK(L+22*G(I 
, 1 ) +G ( 1,2) ) O32THEN80 
85 Y-INT(RND(0)*11) 

90 POKEL+22*G(I,1)+G(I,2),81 :NEX 
T:POKBC+22*ll+Y,7:POKEL+22*ll 
♦Y , 81:X-11 

95 IPP-lTHENTI$-Z$:GOTOl20 


La partita è composta da due tempi di 3 minu¬ 
ti (di gioco effettivo), e i turni d'attacco dura¬ 
no 20 secondi, a meno che il giocatore non per¬ 
da la palla sbagliando mira o facendosi inter¬ 
cettare il tiro. In questi 20 secondi, naturalmen¬ 
te, bisogna cercare di segnare il più possibile, 
"dribblando ” i difensoh. 

Sul video, oltre al terreno di gioco, compare il 
punteggio, il cronometro, il numero del tempo 
in corso ed un segnalino verde che indica a chi 
tocca attaccare. Per dare ai giocatori il tempo 
di scambiarsi, alla fine di ogni turno il gioco re¬ 
sta fermo finché il pystick non viene mosso in 
una direzione qualsiasi. 


100 GOSUBl 000 : IPPO* 5 1 56THEN1 00 
110 P-lsPOKESP,240:PORI-1 TOSO:NE 
XT:POKESP,0:B-0:TI$-Z$:K$«Z$ 

120 GOSUBl000:IPPP-32ANOPO-156TH 
BN210 

130 IPP0-28THENR-1:TX-0:TY-1:GOT 
0180 

140 IFP0-148THBNR-22:TX-1:TY-0:G 
OTOl80 

150 IPPO-140THENR--1:TX-0:TY«-1: 
GOTOl80 

160 IPP0-152THENR«-22:TX--1:TY-0 
:GOTOl80 

170 IFPP-0THEN340 
175 GOTO210 

180 IPPEEK(L+22*X+Y+R)■32THEN200 

190 POKESP'130:PORI*1TOSO:NEXT:P 
OKESP,0 : GOTO 210 

200 POKEC+22*X+Y,4:POKBL+22*X+Y, 
32 :POKEC+22*X+Y+R,7 :POKEL+22 
*X+Y+R#81:X-X+TX:Y-Y+TY 
210 GOSUB800:IFF$<>TI$THENPL«0 
215 IPVAL(TI$)>«200THENGOSUB800: 
GOTO270 

220 IPB<2THEN120 

230 Z$-TI8:POKESP,240:PORI-lTO30 
0:NEXT:POKESP,0:SV*-1*SV:Q“1 
9:Q1-2:IPSV>0THENQ-2:Q1-19 
240 GOSUB800SPRINT”{HOME}(GRN) 

{ 2 GIU')"TAB(Q)"{RVS}t":PRI 
NT"{HOME}{ 2 GIU'}"TAB(Ql)" 

N 
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260 GOTO55 
270 IPHT-2THEN310 
280 POKESP,200:FORI-1T01500:NEXT 
:POKESP,0 :HT»2 : PORI"1TO2000 s 
NEXT 

300 GOTO20 

310 POKESP,200:PORI-lT03000:NEXT 
:POKESP,0 

315 PRINT"{HOME}{ 22 GIU'}{BLK} 

{RVS} {BLU}RETURN{BLK} PER G 
IOCARE 

320 GETCS : IFC$OCHR$ (1 3) THEN320 
330 RUN 

340 Q*0:W*SGN(5-Y)+2:ONWGOTO350, 
360,370 

350 Ri*-23:IFX*0THENR1*-l 

355 GOTO380 

360 Ri*-22:GOTO360 

370 R1--21:IFX-0THENRl»l 

380 Q-Q+l:BB-PEEK(L+22*X+Y+Q*Rl) 

: IFBB=32THEN410 
390 IFBB-15THEN430 
400 POKESP,130SFORI-1T0300:NEXT: 
POKESP,0:GOTO230 

410 POKEL+22*X+Y+Q*Rl , 46 : IFQO1T 
HENPOKEL+22*X+Y+- (Q-l)*Rl,32 
420 GOSUB800:GOTO380 
430 IFPEEK(L+22*X+Y+(Q-1) *Rl ) 08 
lTHBNPOKEL-t-22*X+Y+(Q-l) *R1,3 
2 

435 Z$*TI$:FORJ*lT05:READT:POKES 
P,T:FORI-1TO90:NEXT:NEXT:POK 
ESP,OsRESTORE 

440 OATA237,232,225,232,237 
450 IPSV>0THENSA»SA+2 
460 IFSV<0THENSB*SB+2 
470 PRINT"{BLK}{HOME}{DES}"SA;TA 
B(18);SB:GOTO60 


800 PRINT"{HOME}{ 4 GIU'}{RED}"T 
AB(8)MID$(TI$,3,2)":"RIGHT$( 
TI$,2):IFD>2THEN850 
815 W*SGN(5-Y) :IFX-0THENMX-G(D,1 
):MY*G(D,2)-Y-W:G0T0825 
820 MX-G(D,l)-X+l:MY*G(D,2)-Y-W 
825 IFMX-0ANDMY-0THEN960 
830 IFABS(MX)>-ABS(MY)THENM-SGN( 
MX)+3:GOTO860 

840 M*SGN(MY)+2:GOTO860 

850 M-INT(RND(0)*4+1)sIFX-OTHENM 

-4 

860 Fl-0 

870 ONMGOTO880,890,900,910 
880 R-l:TX-0:TY-1SGOTO920 

890 R*22:TX*1:TY*0:GOTO920 
900 R*-l:TX*0:TY*-1:GOTO920 

910 R*-22:TX*-1:TY-0 
920 A-22*G(D,1)+G(D,2):IPPEBK(L+ 
A+R)«32THEN950 

930 IFFl »0THENM“M+2*SGN(2.5-M) :F 
1*1:GOTO870 
940 GOTO960 

950 POKEL+A,32:POKEL+A+R,81:G(D, 
1)*G(D,1)+TX:G(D,2)*G(D,2)+T 
Y 

960 D-D+l:IFD-6THEND-1 
970 IFRIGHTS(TI$,1)«RIGHTS(K$,1) 
ANDTI$OK$ANOFL-OTHENB-B>1 :F 
L-l:F$-TI$ 

980 RETURN 

1000 POKE37154,255:PP*PEBK(37137 
)AND60:P0-PPANO28:PF-PFAND3 
2 :POKE37154,127 

1010 P0*P0+(PEEK(37152)ANO128):R 
ETURN 


Star war 





Ti trovi al comando di una base missilistica se- 
movibile e devi difenderti dagli attacchi delle 
astronavi di Vega, che cercano di distruggerti 
bombardandoti. Tra la tua base, che natural¬ 
mente si trova a terra, cioè nella parte bassa 
dello schermo, ed il nemico, che si muove in 
alto, ci sono delle barriere che, per tua sfortu¬ 
na. possono essere perforate solo dalle sue 
bombe e non dai tuoi missili " • ,o compito è 


reso ancora più arduo dal fatto che le navi alie¬ 
ne si muovono casualmente e che, per centrar¬ 
le coi tuoi missili, puoi sparare solo in corrispon¬ 
denza di uno dei varchi tra le barnere creati 
dalle bombe vegane. Queste ultime sono di due 
tipi: il pnmo viene sganciato in direzione verti¬ 
cale o diagonale prendendo direttamente di mi¬ 
ra la tua base, mentre il secondo tipo parte 
automaticamente sulla verticale delTastronave 
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(ovunque essa si trovi)nel caso che un tuo mis¬ 
sile si infranga contro le barriere. Perciò stai 
attento a non colpirle quando i nemici si tro¬ 
vano sulla tua testa, altrimenti la bomba ti cen¬ 
trerà senza che tu possa muoverti. Puoi tutta¬ 
via sfruttare questo meccanismo per far di¬ 
struggere "a comando" le barriere dalla nave 
di Vega, in modo da creare nuovi varchi attra¬ 
verso cui lanciare i missili. 

Hai a disposizione tre basi, ognuna delle quali 


può sparare a volontà, tenendo però presente 
che un missile non può partire finché il prece¬ 
dente non è uscito dallo schermo. Usa i tasti 
0 e P per spostare la base a sinistra e a de¬ 
stra. e la barra per sparare. Per ogni astrona¬ 
ve distrutta guadagni un punteggio tanto più 
alto quanto minore è il tempo impiegato ad ab¬ 
batterla. Premi la barra per iniziare la partita 
e RETURN alla fine del gioco. 


100 POKB36879,8:GOSUB920 
110 DATAI 95,187,179,175,0:READJX 
:T1«1:Pl«0:TM«3 

130 J-4:P«7680:G-36877:M«7702:W- 
1:Z-.1:E-10:U-0:I«0:HH-0:H-0 
:P-0:C«0:TR-0: W-0:TT-0 
135 MM-0:JJ-0 
140 POKK36878,15:CR»TI 
150 PRINT"(CLR)( 22 GIU 1 )(RED) 
l< 22 Y>)"; 

160 FORA-8010TO7768STEP-22:FORB- 
0TO21STEPJ:POKEA+B,93:POKEA+ 
21-B,93:NKXT:J-J+l:NEXT 
170 PRINT" (HOMBH 17 GIU')" 

180 PRINT"(DES)(WHT)(< 2 M>) " 
190 PRINT"(DES)N[<T>]M" 

200 PRINT"1<M>1N(<T>)M(<G>)":PRI 
NT"{GIU')(RVS)BASI :(OPP)"4-T 
1" (RVS)PUNTI :{OFF)"Pi" 

{ 5 SU)":GOTO400 
210 RR-PEEK(197)JIFRR-64THEN520 
220 POKEP+U+1,109 :POKEP+U+2,81:P 
OKEP+U+3,125:POKEM+U,85 :POKB 
M+U+l,81 

230 POKEM+U+2,87:POKEM+U+3,81:PO 
KBM+U+4,73 
240 POKBM+I+2,32 
250 PRINTTAB(I)"(DES)( 4 SPAZI) 

m 

260 PRINTTAB(I)"(DES)( 4 SPAZI) 

m 

270 PRINTTAB(I)"{ 5 SPAZI) 

( 3 SU)" 

280 IFPEEK (8076+1) 032THBNTR-1 :G 
OTO830 

290 IFRR-13THENI-I+1 
300 IFRR-52THENI-I-1 
310 IFRR«32ANDC<7680THENC«8054:F 
-1:L-I:POKB36875,241 
320 IFRR-lANDE<>0THENPOKEG,250:A 
P*8054:E«E-1:GOSUB780 
330 IFKOTHENI-O 
340 IFI>16THENI-16 
350 PRINTTAB(I)"(DES)(WHT) 

(< 2 M>1 " 

360 PRINTTAB(I)"(DES)N(<T>)M" 

370 PRINTTAB(I)"(<M>]N(<T>]M 
[<G>1( 3 SU)" 


380 GOTO520 

400 POKEP+U+1,32 :POKEP+U+2,32 : PO 
KEP+U+3,32 :POKEM+U,32 :POKEM+ 
U+1,32 

410 POKEM+U+2,32 :POKBM+U+3,32 : PO 
KEM+U+4,32 

420 POKE36874,JX:QW*QW+1:IFQW*2T 
HENREADJX:QW“0 
430 IFJX-175THBNRBSTORB 
440 U-U+W 

450 IFU>16THENU-16:W--W 
460 IFU<0THENU-0:W--W 
470 IFRND(1)<ZTHENW“-W 
480 IFU-I-3ANDHH-0THENHH-2:W-M: 
TT“U+2:GOTO210 

500 IFU-IANDHOlTHBNH-1 :MM-M:JJ- 
U+2 

510 GOTO 21 0 

520 POKEP+U+1,109:POKEP+U+2,81:P 
OKBP+U+3,123:POKEM+U,85:POKE 
M+U+l,81 

530 POKEM+U+2,87:POKEM+U+3,81 : PO 
KEM+U+4,73 

540 IFH*1THENPOKBMM+JJ,32 : l#4“MM+ 

22 

550 IFHH-2THENPOKEW+TT, 32:W-W 
+22 :TT“TT-1 :POKEG,250 
560 IFPEEK (W+TT) ■770RPBEK (W+TT 
) -780RPEBK (W+TT) -101ORPEEK ( 
W+TT)-1 03THENTR-1 '.GOTO 8 30 
570 IFW>8142ANDHH-2THEMHH-0:POK 
EG, 0 

580 IFHH-2THBNPOKEW+TT,160 
590 IFPEEK(MM+JJ)"770RPEEK(MM+JJ 
)-780RPEEK(MM+JJ)-1010RPEEK( 
MM+JJ)-103THENTR-1:GOTO830 
600 IFH-1ANDMM-8142THENH-0:POKEG 
,0 

610 IFH«lTHENPOKEMM+JJ,l60:POKEG 

,255 

620 IFF“lTHENPOKEC+L+2,32:C“C-22 
:POKE36875,0 

630 IFPEEK(C+L+2)■93THEMGOSUB700 

640 IFRND (1XZXTHBNGOSUB700 
650 IFPEEK(C+L+2)"870RPBBK(C+L+2 
)«81THEN830 

660 IFF*1THENPOKEC+L+2,65 
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670 IFC<7680THENF-0 
690 GOTO400 
700 N-M 

710 FORA-0TO18 

720 POKEN+U+2,32 : POKE36876, RND ( 1 
)* 128+128 
730 N-N+22 

740 IFPBEK(N+U+2)«770RPEEK(N+U+2 
)-78THENTR-1:GOTO830 
750 POKEN+U+2,83 
760 FORT-0TO100:NBXT 
770 NBXT:POKE36876,0:F-0:C-0:RET 
OHM 

780 FORK-OTO3:FORA-ITOI+4 
790 IFPBEK(AP+A)*160THENH“0 
800 POKBAP+A,160:NBXT:AP-AP+22tN 
EXT 

810 AP-8054:FORK-0TO3:FORA-ITOI+ 

4 

820 POKEAP+A,32:NEXT:AP-AP+22:NE 
XT:POKEG,0 : RETURN 
830 POKEG»220 

840 IFTR«1THENGOSUB910:GOT0850 
844 PRINT"{PUR){HOME)";:PRINTTAB 
(U)"N{< 3 T>)M":PRINTTAB(U)" 

[<G>]N(<T>1H[<H>1* :PRINTTAB( 
U)"M{“3 V)N W 

846 P1-P1+INT(Te 5/(TI-CR)):IPP1> 
(TM-2)*5000THBNTM-TM+1 
850 FORL-15TOOSTBP-1 
860 POKE36878,L:FORT-lTO300:NBXT 
:NEXT 

870 POKEG,0:POKE36876,0:POKE3687 
9 f 8 

880 IFTR-0THBN130 
890 GOTO1200 

910 PRINTTAB(I+l)"MBN":PRINTTAB( 
I+1)"C C"JPRINTTAB(I)" NBM " 
sTl-TT+T:RETURN 
920 PRINT"{CLR}{GIU*)" 

930 PRINT"(RVS}SSSS{OPP) {RVSjTT 
TT{OPP} {RVS}AAAA(OFF) (RVS) 
RRRRR(OPP)" 

940 PRINT"{RVS}S{OPP}{ 5 SPAZI) 
(RVS)TT(OPP){ 2 SPAZI){RVS)A 
{OPP){ 2 SPAZI)(RVS)A(OPP) 
{RVS)R(OPF){ 3 SPAZI)(RVS)R 
{OFF)" 

950 PRINT"{RVS}S{OFF){ 5 SPAZI) 
{RVS)TT{OFF){ 2 SPAZI){RVS)A 
{OFF){ 2 SPAZI){RVS}A{OFF) 
(RVS)R(OFF){ 3 SPAZI){RVS)R 
{OFF)" 

960 PRINT"(RVS)SSSS(OFF) 

{ 2 SPAZI){RVS)TT{OFF) 

{ 2 SPAZI){RVS)AAAA{OFF) 
{rvs)rrrrr(off)■ 

970 PRINT"{ 3 SPAZI){RVS)S(OFF) 

{ 2 SPAZI){RVS)TT{OFF) 

{ 2 SPAZI)(RVS)A(OFF) 

{ 2 SPAZI)(RVS)A(OFF) (RVS)R 
{OFF) {RVS)R{OFF}" 


980 PRINT"{ 3 SPAZI){RVS)S{OFF) 

{ 2 SPAZI)(RVS)TT(OFF) 

{ 2 SPAZI)(RVS)A(OFF) 

{ 2 SPAZI)(RVS)A(OFF) (RVS)R 
{OFF){ 2 SPAZI)(RVS)R(OFF)" 
990 PRINT"{RVS)RRRR(OFF) 

{ 2 SPAZI){RVS)TT{OFF) 

{ 2 SPAZI)(RVS)A{OFF) 

{ 2 SPAZI){RVS)A{OFF) {RVS)R 
{OFF){ 3 SPAZI)(RVS)R(OFF)" 
1000 PRINT"{ 4 GIU')" 

1010 PRINT"{RVS)WW{OFF) (RVS)M 

{OFF) {RVS)HH(OFF) (RVS)AAA 
AAA(OFF) (RVS)RRRRRR{OFF)" 
1020 PRINT"(RVS)WN{OFF) {RVS)W 
(OFF) (RVS)HW(OFF) {RVSjAA 
{OFF){ 2 SPAZI)(RVS)AA(OFF) 
(RVS)RR(OFF){ 2 SPAZI) 
(RVS)RR(OFF)" 

1030 PRINT"{RVS)HH{OFF) {RVS)W 
{OFF) (RVS)HW(OFF) (RVS)AA 
{OFF){ 2 SPAZI){RVS)AA{OFF) 
{RVS)RR{OFF){ 2 SPAZI) 
(RVS)RR(OFF)" 

1040 PRINT"{RVS)WW{OFF) {RVS)W 
{OFF) (RVS)WW(OFF) {RVSjAA 
{OFF){ 2 SPAZI){RVSjAA(OFF) 
(rvs)rr(off){ 2 SPAZI) 

{RVS)RR{OFF)" 

1050 PRINT" {RVS)WWWWW(OFF) 

{ 2 SPAZI)(RVS)AAAAAA(OFF) 
(rvs)rrrr(off)" 

1060 PRINT"{ 2 SPAZI)(RVS)WWW 

{OFF)( 3 SPAZI){RVSjAA{OFF) 
{ 2 SPAZI)(RVS)AA(OFF) 
(RVS)RR(OFF) {RVS)RR{OFF)" 
1070 PRINT"{ 3 SPAZI)(RVS)M(OFF) 
{ 4 SPAZI){RVS)AA{OFF) 

{ 2 SPAZI)(RVS)AA(OFF) 
(RVS)RR(OFF){ 2 SPAZI){RVS) 
RR{OFF)" 

1090 D b INT(RND(1)*7)+1 :PORA»0TO2 
52:POKE38400+A,D:POKB38905- 
A,D-1 

1100 IFPBEK (197) 032THBN1120 

1110 RETURN 

1120 NEXT:GOTOl090 

1200 IFT1<*TMTHBN130 

1210 PRINT"{HOME}{WHT){ 8 GIU') 

{ 5 DBS)(RVS)(CYN)*FINB GIO 
CO*" 

1220 IFPBEK(197)<>15THEN1220 
1230 RUN 


Aspettiamo 
i tuoi lavori migliori! 
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Preda e cacciatore 


CI6^-pius/4 


_ 


Sei un animale selvatico imprigionato in un la¬ 
birinto ed inseguito da un cacciatore. Ti muovi 
usando i tasti I (destra), P (sinistra), Q (su) e 
Z (giù); ricordati però che ovunque tu vada il 
cacciatore sarà alle tue calcagna. Per soprav¬ 
vivere devi mangiare le pillole energetiche spar¬ 


se per il labirinto. 

Puoi giocare a quattro livelli di difficoltà, che 
determinano la velocità con cui il cacciatore ti 
insegue. Se riesci a mangiare tutte le pilble la 
partita prosegue al livello supenore. 


20 CLR:COLORO,8,3:COLOR4, 7 ,3:COL 
ORI,2,7 
30 GOSUB710 
40 GOSUB850 
50 SCNCLR 

60 SC-3072:CO-2048:BE-3072+207 
70 A$»"{RVS){ 2 SPAZI)(OPP)":B$- 
" ":C$-A$+B$ 

80 E$«"{ 2 SPAZI)Q" 

90 PORI-lTO40:CC$-CC$+"{DBS)":NE 
XT 

100 PORI»1T025:RR$«RR$+"(GIU'}"s 
NEXT 

110 PORI-SCTOSC+39:POKEI,160:POK 
EI+960,160:NEXT 

120 PORI-SCTOSC+999STEP40:POKEI, 
160:POKEI>39,160:NEXT 
130 PRINT"{IIOMB) M ;TAB(10) }"{RVS) 
PREOA B CACCIATORE " 

140 F$-"":P0RI-1T08:P$-P$+E$:NEX 
T 

150 D$-"":PORI-lTOlO:D$-D$+C$:NE 
XT:PRINT:PRINT:PRINT:PRINT 
160 PORI-1T05:PRINTTAB(7);D$:PRI 
NTTAB(7);D$:PRINTTAB(7);F$:N 
EXT 

170 PRINTTAB(7);D$:PRINTTAB(7);D 

$ 

180 R-2:C-0:FL-0:SW-0 
190 PO-BE+(R*40)+C:POKEPO,102 
200 Cl-26:Rl-16:Pl-BEMRl*40)+Cl 
:VE»PEEK(Pl):POKEPl,86 
210 A»PEEK(198):IPA-62THENGOSUB3 
70 

221 IPA-12THENGOSUB420 
230 IFA-33THENGOSUB470 
247) I FA*41THENGOSUB520 
250 GOSUB290 

260 IPINT(CN/40)-CN/40ANDFL-1THE 
N640 

270 PRINT"(HOME)";LEFTS(RR$,3);L 
EFTS(CCS,15);"{RVS)PUNTI: 

SI 

280 GOTO210 


290 IPSWOAWTHENSW-SW+1 : RETURN 
300 SW-0 

310 PC-Pl:IPC1<CTHENC2-C1:C1-C1+ 
1:P1-BE+(R1*40)+C1:IFPEEK(P1 
) • I 60TIIKNCI «C21 Pi «PC 
J20 IPiM »CTIIKNC2-C1 |i-1 -OI - 1 I PI-Il 
K• (Hi *40) ICI l lPl'KKK (PI)») CiOT 
IIKIA ' I -*?it 11* I - 4*C 

330 I KRI <I<T1IKNH2-H1 f R I -Ul+1 :Pl»B 
KM Mi *40) >C1 l IPPKKK (Pi ) *1 60T 
IIKNRl“R2: Pi-PC 

340 IERI >KTIIENR2-Rl » Ri -Ri -1 : Pi-B 
E+ (Ri *40) -fCl : IFPEEK (Pi ) “1 60T 
HENRl-R2:Pi-PC 

350 POKEPC,VE:VE-PEEK(Pi):IFVE-1 
02THENGOSUB600: GOTO20 

360 POKEPl,86:RETURN 
370 IPR-OTHENRETURN 

380 Tl-PO:R-R-1 :PO-BE+(R*40)+C:I 
FPEEK(PO)-160THENPO-T1:R-RM 
: RETURN 

390 IPPEEK(PO)-13THKN570 
400 IPPEEK(PO)-81THENSl-SI+1:CN“ 
CN+1:PL-1 

410 POKETl,32 :POKEPO,102 : RETURN 
420 IPR-16THENRKTURN 
430 Tl -PO:R-RM : PO-BE+ (K*4(7) +C: I 
FPEEK(PO)-160THENPO-T1:R-R+1 
: RETURN 

440 IFPEEK(PO)-81THENSl-Si+1:CN- 
CN+1 

450 IFPEEK(PO)-86THEN570 
460 POKETl,32:POKEPO,102:RETURN 
470 IPC-OTHBNRETURN 
480 Tl-PO:C«C-l:PO-BE+(R*40)+C:I 
PPEEK(PO)-160THENC-C+1:PO-Tl 
: RETURN 

490 IPPEEK(PO)-81THENCN-CN+1:S1- 
Sl+1 

500 IPPEEK(PO)-86THEN570 

510 POKETl,32:POKEPO,102:RETURN 

520 I PC-28THENRKTURN 


IO 









530 Tl-PO:C-C+l :PO«BE+(R*40)+C:I 
PPEEK(PO)«160THENC-C-1sPO-Tl 
: RETURN 

540 IFPEEK(PO)-81THENCN-CN+1:Sl- 
Sl + 1 

550 IFPEEK(PO)-86THEN570 
560 POKETl,32 :POKKPO,102 : RETURN 
570 SCNCLR:PRINTTAB(6);"SEI PINI 
TO PROPRIO IN BOCCA" 

575 PRINT:PRINTTAB(12);"AL CACCI 
ATOREl! !" 

580 PRINT:PRINT:PRINT" 

{ 2 SPAZI}HAI MANGIATO";CN;" 

'PILLOLE ENERGETICHE" 

590 PRINT:PRINT:GOSUB680:GOTO20 
600 SCNCLR:PRINT" SEI STATO CATT 
URATO DAL CACCIATORE!Il":PRI 
NT:PRINT 

610 PRINT"{ 2 SPAZI)HAI MANGIATO 
";CN;"PILLOLE ENERGETICHE":P 
RINT: l'RTNT 
620 GONllllbHO 
bit) ItKTIIHH 
640 HCNCI.H 

650 PRINT" lCLR|"|TAH(1 J) "CONGRAT 
UI.AZION1 I" 

660 PRINT: PRINT: PRINri'AU(6) }"HAI 
COMPLETATO !L LI VELLO";TY 
665 TY-TY+1:IFTY>4THENTY«4 
670 AW-4-TY:PRINT:PRINT:GOSUB680 
:GOTO50 

680 PRINT:PRINTTAB(5)PREMI UN 
TASTO PER CONTINUARE"}:FORI- 
lTO500:GBTA$:NEXT 
690 GETA$: IFA$-""THEN690 


700 RETURN 

710 SCNCLR:PRINTTAB(10);"{WHT} 

{RVS} PREDA E CACCIATORE " 

720 PRINT:PRINT:PRINT"DEVI ANDAR 
E IN GIRO PER LO SCHERMO IL" 

730 PRINT"PIU’ A LUNGO POSSIBILE 
SENZA FARTI" 

740 PRINT"CATTURARE DAL CACCIATO 
RE." 

745 PRINT"GUADAGNI PUNTI MANGIAN 
DO LE PILLOLE" 

750 PRINT"ENERGETICHE: SE RIESCI 
A FINIRLE LA" 

755 PRINT"PARTITA CONTINUA.":PRI 
NT:PRINT 

760 PRINT"PER MUOVERTI USA I SEG 
UBNTI TASTI:":PRINT 

790 PRINTTAB(13)}"I - SINISTRA" 

800 PRINTTAB(13)J"P - DESTRA" 

810 PRINTTAB (13);"Q - SU" 

820 PRINTTAB(13);"Z - GIU'":PRltf 
T:PRINT 

830 GOSUB680:COLORI>2,7 

840 RETURN 

850 SCNCLR:PRINT*LIVELLO DI DIFF 
ICOLTA 1 (1-4)?"; 

860 GETL$:IPL$<"l"ORL$>"4"THEN86 
0 

870 TY-VAL(LS):AW»4-TY:RETURN 



Scopo del gioco è indovinare un numero com¬ 
preso tra 0 a 99, ottenendo nel contempo un 
buon punteggio. Per riuscirci devi muovere una 
pedina in una scacchiera composta da nume¬ 
ri (0-9), da X e da punti di domanda. Sulla 
scacchiera si trova anche un Minotauro, dal 
quale devi guardarti. Se passi su un numero, 
questo viene rimosso e sommato al tuo pun¬ 
teggio, ma attento: nel caso esso sia maggiore 
di 5, il Minotauro fa un passo verso di te e, 
se ti raggiunge, il gioco termina con la tua scon¬ 
fitta. Se passi su una X, in cima allo schermo 


appare per breve tempo un'informazione ri¬ 
guardante il numero da indovinare. Se infine 
p>assi su un punto interrogativo, al tuo punteg¬ 
gio viene aggiunto un numero casuale. 
Ricordati che non puoi passare sugli spazi vuoti 
lasciati dai numeri rimossi. Per muovere la pe¬ 
dina usa i tasti I (sinistra), P (destro), Q (su) 
e Z (giù); se ti trovi circondato da spazi, premi 
T per arrenderti. Quando pensi di aver indovi¬ 
nato il numero, sposto la pedina sul quadrati¬ 
no che si trova nella parte alta della scacchie¬ 
ra. 







20 CLR 

30 SCNCLR:VOL8:COLORI,1,3 
40 SC-3072:CO-2048:COLORO,7#4:CO 
LOR4,6,4:C-0:R-0:PO-SC+(R*40) 
♦C:BE-SC+130 
50 PRINT"{MHT)"; 

60 FORI-VK^iRRS-RRS+MGIU*)":N 
EXT 

70 FORI-lTO40:CC$-CC$+"(DES}":HE 
XT 

80 F0RI-lT036:CLS-CLS+" ":NEXT 
90 H$-"l23456789?"+CHR$(24) :DIMC 
LS(10) 

100 FORI-SCTOSC+39:POKBI#160:NBX 
T 

110 PORI-SC-»(24*40)TOSC+(24*40)+ 
39:POKB1,160:NEXT 
120 FORI-SCTOSC+(24* 40)STEP40: PO 
KEI,160:NEXT 

130 PORI-SC+39TOSC*(24*40)+39STB 
P40:POKEI,I60:NBXT 
140 PRINT"(HOME){RVS) 

( Il SPAZI)H INOTAURO 
{ Il SPAZI)” 

150 PORI-SC+130TOSC+8S0STEP80 
160 FORJ-ITOI+18STBP2 
170 0-INT(RND(l)*12):IPQ-0THEN17 
0 

180 A-ASC(MID$(HS#Q#1) ) 

190 POKEJ # A:NEXT:NEXT 
200 NU-INT(RND(1)*100):IFNU-0THB 
N200 

210 NUS-STRS(NU):RA-INT(RND(1)*3 
):IPRA-0THBNGOTO210 
220 IFNU<10THBNNUS-"0"+NUS 
230 IFRA-1THENCL$(1)-”LA PRIMA C 
IFRA E' "+MIDS(NU$,2,1) 

240 IFRA-2THENCLS(1)-"LA SECONDA 
CIFRA E’ "+MID$(NU$ *3,1) 

250 CN-2:FORI-2TONU-1 
260 A-NU/I:B-INT(A) :IFAOBTHEN29 
0 

270 IFCN-7THEN300 

280 CLS(CN)“"UN FATTORE DEL NUME 
RO E* "+STRS(A):CN-CN+1 
290 NEXT 

300 IFNU/2-INT(NU/2)THENCLS(CN)- 
"IL NUMERO E' PARI" 

310 IFNU/2<>INT(NU/2)THENCLS(CN) 
■"II. NUMERO E* DISPARI" 

320 CII-VA1.(MII>$(NU$,)#I) ) JFOKl-2 
TU1:A-UU/111 FA-INT(CB/1)THBN 
GOGUU I 060 (GOTO340 
330 NEXT 

340 GU~VAL(MID8(NU9#2#1))SFORI-2 
TO9 S A-GB/111FA-1NT(GB/I)THEN 
GOSUB1070 :GOTO360 
350 NEXT 

360 SD-VAL(MIDS(NU$#2,1) ) SlFSD/2 
-INT(SD/2)THENCLS(7)-"LA PRI 

MA PTPRA R* piRT" 

370 IFSD/2<>INT(SD/2)THENCL$(7)- 
"LA PRIMA CIFRA E* DISPARI" 


380 SD-VAL(MID$(NU$,3,1)) lIFSD/2 
-INT(SD/2)THENCLS(8)-"LA SBC 
ONDA CIFRA B> PARI” 

390 IFSD/2<>INT(SD/2)THENCLS(8)- 
"LA SECONDA CIFRA E' DISPARI 

M 

400 FORI-1T09:IFI*I-NUTHBNCL$(9) 
-"IL NUMERO E' UN QUADRATO P 
ERPETTO" 

410 NEXT 

420 HO-BE+10 :POKEHO,160 
430 C1-6:R1-6:MA-BE*(R1*40)+C1:V 
E-PEBK(MA):POKKMA,13 
440 C-10:R-18:PO-BE+(R*40)+C:VA- 
PEBK(PO):POKEPO,209 
450 A-PEKK(198):POKEMA,13tIFA-64 
THEN5S0 

460 IFA-62THBNGOSUB560 
470 IFA-12THBNGOSUB620 
480 IFA-33THENGOSUB680 
490 1FA-41THENGOSUB740 
500 IFA-22THEN1040 
510 GOSUB8SO:SOUND2#15,12 : SOUND1 
#23,23 

520 PRINT"(H0ME)";LEFT$(RRS#2);L 
EFTS(CCS,2);CL$; 

530 TT-TT+CU 

540 PRINT"{HOME}";LEFTS(RR$» 23) ; 
LBFTS(CCS,7);"(RVS)ULTIMO: 
(OFF)"jCU;"{ 6 SPAZI}{RVS)TO 
TALE:(OFF)";TT; 

550 CU-0:POKEMA,141:GOTO450 
560 IFR-0THBNRETURN 
570 R-R-2:PB-PO:PO-BE+(R*40)+C:D 
A-PEEK(PO):IFDA-32THBNR-R+2: 
PO-BE+(R*40) *C:RETURN 
580 IFDA-13THEN920 
590 GOSUB800 

600 POKEPB#VA:FL-PEEK(PE):CU-VAL 
(CHR$(FL)) :POKEPB,32:VA-PEBK 
(PO) 

610 POKEPO#209-.RETURN 
620 IFR-18THENRETURN 
630 R-R+2: PE-PO: PO-BE+ (R*40) +C:D 
A-PEEK(PO):IFDA-32THENR-R-2: 
PO-BBI(H*40)+C«RETURN 
640 IFUA-I 3TIIEN920 
650 GOSIIIIIIOO 

660 POKKPK,VAIFL-PEEK(PE):CU*VAL 
(CIIKS(PL)):POKEPB,32 
670 VA-PEBK(PO):POKEPO#209:RBTUR 

N I 

680 IFC-0T1IBNKBTUKN 
690 C-C-2:PB-PO:PO-BE+(R*40)+C:D 
A-PEEK(PO):IFDA-32THBNC-C+2: 
PO-BE+(R*40)+C:RETURN 
700 IFDA-13THBN920 
710 GOSUB800 

720 POKEPE,VA:FL-PEEK(PE):CU-VAL 
(CHRS(FL)):POKEPB# 32 
730 VA-PEEK(PO):POKEPO,209:RETUR 
N 
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740 IFC-18THBNRETURN 
750 C-C+2:PE-PO:PO-BE+(RMO)+C:D 
A-PEEK(PO):IPDA-32THENC-C-2: 
PO-BE+(R*40)+C:RETURN 
760 IPDA-13THEN920 
770 GOSUB800 

780 POKEPE,VA:PL-PEEK(PE)sCU-VAL 
(CHKS(PL)):POKEPE,32 
790 VA-PEBK(PO):POKEPO,209 :RBTUR 
M 

800 IFDA-63THENCU-INT(RND(1)*10) 

810 PU-INT(RND(1)*9):DI-(40-LEN( 
CL$(PU)))/2 

820 IFDA-24THENPRINT"{HOME}";LEP 
T$ <CC$,DI);LEPT5(RR$#2);CL$ ( 
PU);sGOSUBl050 
830 IPDA-160THENGOSUBÌ 000 
840 RETURN 

850 IFCU<6THENRETURN 
860 IPC1>CTHENC1-C1-2 
870 IFCl<CTHKNCl-CI+2 
880 IPRl>RTHENR1-Ri-2 
890 IPRl<RTHENR1-Ri+2 
900 POKEMA,VE:MA-BE+(Rl*40)+C1Si 
PPEEK(MA)-209THEN920 
910 VE-PEEK(MA):POKEMA,13 : RETURN 

920 PRINT"{CLR)";LEPT$(RR$,10) 

IL MINOTAURO TI HA MANGIATO! 

n 


930 PRINT"(HOME)";LEPT$(RR$,13); 
"IL NUMERO ERA";NU; 

940 PRINT:PRINT:PRINT 

950 PRINT"VUOI GIOCARE ANCORA (S 
/N>?" 

960 GBTA$:IFA$-""THEN960 

970 IPA$-"S"THEN20 

980 IFA$-"N"THENEND 

990 GOTO960 

1000 PORI-lTOl0:GETA$:NEXT 

1005 PRINT"(CLR)";LEPT$(RR$«2);L 
EFTS(RR$, 3 ) ;"QUAL *E * ILNUM 
ERO";sINPUTVT 

1010 IKVTONUTIIKNPHlNTl PR!NT"tlUA 
GLIA'IMI IL NUMERO ERA" ) NU I >i 
OTO940 

1020 PRINT"BRAVISSIMO!I 

( 2 SPAZIIHAI BATTUTO IL MI 
NOTAUROI" 

1025 PRINT"{ 2 GIU'}IL TUO PUNTE 
GGIO E' STATO";TT 

1030 GOTO940 

1040 PRINT"ICLR)";:GOTO930 

1050 PORI>1TO1500:NEXT:RETURN 

1060 CL$(6)-"UN FATTORE DELLA SE 
CONDA CIFRA E'"+STR$(I):RET 



Un mago cattivo li ha intrappolato in un tor¬ 
tuoso labirinto; sai solamente che la tua posi¬ 
zione di partenza è a sud e che l'uscita è a 
nord, ma per fortuna ha con te la bussola. 
Sullo schermo del tuo C64 appare la visione tri¬ 
dimensionale della parte di labirinto più a te 
vicina e l'indicazione del punto cardinale ver¬ 
so cui stai guardando: con queste sole indica¬ 
zioni devi essere in grado di uscire sano e sal¬ 


vo. Il gioco presenta un livello di difficoltà va¬ 
riante tra 5 e 90; più alto è il livello, più è gran¬ 
de il labirinto. Consigliamo i livelli superiori a 
50 solo a chi è sicuro di avere un'eccellente 
memoria e un acuto colpo d'occhio! 

Per rivolgerti verso un determinato punto car¬ 
dinale batti la sua iniziale: "n", “s", "e" op¬ 
pure "o". Imposta la lettera "a" se vuoi avan¬ 
zare nella direzione indicata. Buona fortuna! 


100 REM PRIGIONIERO NEL LABIRINT 
O 

110 REM 

120 DIMM(90,12) 

130 PRINT"(CLR)" 

142 POKE55,0 
144 POKE56,56 


146 PRINTCHRS(142) 

148 POKES6334,PEEK(56334)AND254 

150 POKEl/PEEK(1)AND251 

152 PORJ-0TO511 

154 POKEJ+14336,PEEK(J+53248) 

156 NEXTJ 

158 POKEl,PEEK(1)OR4 
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160 POKE56334,PEEK(56334)ORI 
162 POKE53272,(PEEK(53272)AHD240 
)*14 

164 FORJ-14608TO14647 
166 REAOB 
168 POKEJ,B 
170 NEXTJ 

180 DATA255,255,255,255,255,255, 

255.255 

190 DATAI,3,7,15,31,63,127,255 
200 DATA254,252,248,240,224,192, 
128,0 

210 DATAI 28,192,224,240,248,252, 

254.255 

220 DATAI 27,63,31,15,7,3,1,0 

222 DS-1024:CS-55296 

224 S-54272 

226 FORJ*>STOS+23 

228 POKEJ,0 

230 NEXTJ 

232 POKES+24,15:POKES+6,240 
234 XV-10:YV-16 
236 PRINT"{CLR}" 

238 POKE53280,15 
240 POKE53281,15 
250 POKE646,9 

260 INPUT"LIVELLO DI DIFFICOLTÀ' 
(5-90)";LN 

270 IPLN>4ANDLN<91THEN300 
280 PRINT"MINIMO 5, MASSIMO 90 
{ 2 GIU'}" 

290 GOTO260 

300 PRINT"{GIU'}UN ATTIMO SOLO.. 

m 

• 

330 GOTO760 

340 REM 

350 X-XV 

360 Y-YV 

370 FOH 1 - IT05 

372 KUMK-0TO5 

374 POKK(KI-X) *40+Y«D.S, 34 

376 POKE(XtK)*40+Y+CS,8 

378 NKXTK 

380 Y-Y+1 

390 HEXTI 

410 RETURN 

420 REM 

430 X-XV 

440 Y-YV+5 

450 N-6 

460 PORI-1T09 

470 FORK-OTON-1 

480 POKE(X+K)+40+Y+DS,34 

490 POKE(X+K) *40+Y+CS, 5 

500 NEXTK 

502 POKE(X-1)*40+Y+DS,35 
504 POKE(X-1)*40+Y+CS,5 
506 POKE(X+N)+40+Y+DS,38 
508 POKE(X+N)‘40+Y+CS, 5 
510 N-N+2 
520 X-X-1:Y-Y+1 
530 NEXTI 


540 RETURN 

550 REM 

560 X-XV 

570 Y-YV 

580 N-6 

590 FORI-1T09 

600 FORK-OTON-1 

610 POKE (X+K) MO+Y+DS, 34 

620 POKE(X^K)*40-t-YK:S,5 

630 NEXTK 

640 POKE(X+N)*40+Y+DS f 36 

642 POKE(X+N)*40+Y+CS,5 

644 POKE(X-1)*40+Y+DS,37 

646 POKE(X—1)*40+Y+CS,5 

648 X-X-1sY-Y-1 

650 N-N-^2 

660 NEXTI 

670 RETURN 

680 REM 

690 GOSUB420 

700 PORJ-OTOl 

702 FORK-OTOl9 

704 POKE (XV-6-fK) ‘40+YV+8+J+DS, 32 

706 NEXTK,J 
710 RETURN 
720 REM 
730 GOSUB550 
740 FORJ-OTOI 
742 FORK-OTOl9 

744 POKE(XV-7+K)“40+YV-5+J+D8,32 

746 NEXTK,J 

750 RETURN 

760 COtiUBl 590 

770 KOKI-1TOLN 

780 FORJ-1TO12 

790 R-INT(RND(0)*1.9+1) 

800 IFM ( I, J) O0THEN820 

810 M(I,J)>R 

820 NEXTJ,I 

840 FORI-lTOl 2 

850 M(LN,I)>1 

860 M(LN-1,I)>2 

870 M ( 1,1) >4 

880 IFM(2,1)-3THEN900 

890 M(2, I)-1 

$00 NEXTI 

910 FORI-1TOLN 

920 M(I,1)-1 

930 M ( 1,1 2) -1 

940 NEXTI 

950 H-LN-1 

960 C-2 

970 PRINT"(CLR)" 

980 OND+1GOTO990,1070,1030,1110 
990 ONM(R-1,C)GOSUB340,410,410,4 
10 

1000 ONM(R,C-1)GOSUB550,720,720, 
720 

1010 ONM(R,C+l)GOSUB420,680,680, 
680 

1020 GOTO!140 


14 ' 


1030 ONM(R+1,C)GOSUB340,410,410, 
410 

1040 ONM(R,C+1)GOSUBS50,720,720, 
720 

1050 ONM(R,C-1)GOSUB420,680,680, 
680 

1060 GOTO1140 

1070 ONN(R,C+1 )GOSUB340,41 0,410, 
410 

1080 ONM(R-l,C)GOSUB550,720,720, 
720 

1090 ONM(R+l,C)GOSUB420,680,680, 
680 

1100 GOTO1140 

1110 ONM(R,C-l)GOSUB340,410,410, 
410 

1120 ONM(R+1,C)GOSUB550,720,720, 
720 

1130 ONM(R-l,C)GOSUB420,680,680, 
680 
1140 REM 

1150 IFDOOTHENl 1 70 
1160 PRI NT** {HOME ) " 

1162 FORJ*lTOl1 SPRINT"(GIU'}"sNE 
XT 

1164 PRINTTAB(1 2) -DIREZIONE NORD 

M 

1 ì 70 IFIJ02THKN1 1 90 
1180 CHI NT" (homi:)" 

1182 FORJ-lTOl1»PRINT"{GIU')":NB 
XT 

1184 PRINTTAB(12)"DIREZIONE SUD 
{ 2 SPAZI)" 

1190 IFDOl THENl 210 
1200 PRINT"(HOME)" 

1202 FORJ-lTOl1SPRINT"(GIU')":NE 

1204 $5lNTTAB(l2)"DIREZIONE EST 
{ 2 SPAZI)" 

1210 IFD03THEN1 240 
1220 PRINT"(HOME)" 

1222 FORJ m lTOI1 :PRINT"(GIU 1 )": NE 
XT 

1224 PRINTTAB(12)"DIREZIONE OVBS 

#pW 

1230 REM 

1240 POKES+1, 50 :POKES+4,33 
1242 GOSUB1812 
1244 POKES+4,0 
1246 K»PEEK(197) 

1250 IFK-64THEN1246 

1252 POKES+1,60:POKES+4,33 

1254 GOSUBl812 

1256 POKES+4,0 

1260 IFK-10THEN1320 

1270 IFK-39THEN1470 

1280 IPK-13THEN1490 

1290 IFK-14THEN1510 

1300 IFK-38THEN1530 

1310 GOTO1240 

1320 MV«MV+1 

1330 OND+1GOTO!340,1410,1380,144 
0 



1 340 IFM(R-1,C)“1THENl 550 
1350 R-R-l 

1360 IFM(R,C)-4THEN1 560 
1370 GOTO970 

1380 IFM(R+l,C)-1THENl 550 
1390 R-R+1 
1400 GOTO970 

1410 IFM(R,C+1)-1THENl550 
1420 OC+1 
1430 GOTO970 

1440 IFM(R,C-1)-1THENl550 

1450 C-C-l 

.1460 GOTO970 

1470 D-0 

1480 GOTO970 

1490 D-2 

1500 GOTO970 

1510 D-l 

1520 GOTO970 

1530 D-3 

1540 GOTO970 

1550 GOTO!140 

1560 PRINT"(HOME)" 

1 562 FORJ-lTOl3SPRINT"{GIU')":NE 
XT 

1564 PRINT"CONGRATULAZIONI 1 SEI 
USCITO IN SOLE" 

1566 PRINTMV"MOSSE{ 3 GIU*)" 

1570 GOTO1820 
1580 REM 
1590 R4-1 

1600 Ri“INT(RND(1)*7+3) 

1610 R2»INT(RND(1)*4+2) 

1620 FORI “R4TOR4+R2 

1630 IFI»LN-1THENl810 

1640 M(I,Rl)-3 

1650 NEXTI 

1660 R4-R4+R2 

1670 M(R4+1,R1)«1 

1680 R3“INT(RND(1)*2+1 ) 

1690 IFR302THKN1 710 
1700 R3--1 

1710 R5*INT(RND(1)*3+2) 

1720 FORI-1TOR5 

1730 IF(R1+R3*I)<11THENl750 

1740 Rl-Rl-1 

1750 IF(Rl+R3*I)>1THEN1770 

1760 Rl-Rl+1 

1770 M(R4,Rl+R3*I)-3 

1780 NEXTI 

1790 Ri“Ri+R5*R3 

1800 GO'rO1610 

1810 RETURN 

1812 FORDE-1TO80 

1814 NEXTDE 

1816 RETURN 

1820 FORJ-1TOl0 

1822 GETGA$ 

1824 NEXTJ 

1828 INPUT"VUOI RIPROVARE";Q$ 
1830 IFLEFTS(Q$,1)*"S"THENRUN 
1850 SYS2048 
1860 END 
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11 vero gioco 

comma ADESSO 




È IN EDICOLA 
JACKSON SOFT 


SERIE ORO 


La sottrivi sta con i giochi 
esclusivi per Commodore 64 
e Spectrum 48K 
importati dall'Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, 
al già fatto, al... già registrato. 


Ogni mese in edicola 

• la softrivista con: 

6 pagine di commento 
al supergame presentato; 

4 pagine di rubriche; 

22 pagine di listati scelti tra 
il meglio di quanto pubblicato 
in fatto di grafica, giochi, utility. 

• una cassetta originale con 
il SUPERGAME del mese 


Corri in edicola, il vero gioco comincia aok> adesso 
e se sei davvero bravo partecipa alla “sfida al campione 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 


ts 










Defence 





Questa è la tua grande occasione per diventa¬ 
re un eroe acclamato da tutti, difendendo la 
tua città da razzi mandati da invisibili astro¬ 
navi aliene. 

Possiedi 3 rampe di lancio per missili. Spara 
i tuoi missili in modo da intercettare i razzi alie¬ 
ni premendo i pulsanti “I ", "2" e "3" corri¬ 
spondenti rispettivamente alla prima, seconda 
e terza rampa di lancio. Una volta che è par- 


100 REM DEFENCE 
110 GOSUB470 

120 PRINT"{CLR)“:POKE53280,0 :POK 
E53281,0 :F0RX-55296T056176:P 
OKEX,15:NEXTX 

130 FORX» 561 76TOS6295:POKEX,7 : NE 
XT X 

140 FORX-1904TO2023:POKEX,160:NE 
XT:Z«.1:DD=0:SR«8:V«0 
150 PRINTAS;"[<1>]{ 3 SPAZI} 

(RVS}V{OFF}{ 6 SPAZI}(RVS) 

( 2 vT{OFF}{ 2 SPAZI)[<I>1 
I<K>Tl 4 SPAZI}{RVS}{ 2 V} 
{OFF}I<0>1{RVS)V{OFF} 

{ 4 SPAZI)I<I>)TRVS} {OFF} 

I<I>1|<P>)" 

160 FORX-1T03:POKEBS(X),30:BL(X) 
-BS(X):M(X)=0:F(X)*0:NEXT 
170 Z-Z+.001 

180 FOR X-lT03:IFM(X)-1 THEN21 0 
190 J(X)-1344+INT(RND(8)*240):IF 
RND(8)>ZTHEN 250 

200 POKEJ(X)-1 f M:POKEJ(X),M:POKE 
J (X) +1 ,M:M(X) -1 :D (X) -41 : IFRN 
D(8)>.5THEND(X)-39 

210 IFPEEK ( J (X) ) -MANDPEEK (J (X) -fi 
)-MANDPEEK(J(X)-1)-MTHEN2 30 
220 POKEJ(X) -h, 32:POKEJ(X),32:PO 
KEJ(X)+1,?2:POKEJ(X)-1,32:M( 
X)-0:GOTO250 

230 POKEJ(X)-1,32:POKEJ(X),32:PO 
KEJ (X)+1 , 32 : J (X) «J (X)+D (X) : I 
FJ(X)>1903THEN370 
240 POKEJ(X),M:POKEJ(X)+l,M:POKE 
J(X)-1,M 

250 IFF(X)-1THEN280 
260 GETF$:A-VAL(F$):IFA<!ORA>3TH 
EN280 
270 F(A)-1 


tito un missile, non puoi lanciarne un 'altro dalla 
stessa rampa finché esso non colpisce un raz¬ 
zo nemico oppure non raggiunge la massima 
altitudine. Il gioco termina una volta distrutte 
tutte le strutture della città. 

Sullo schermo è sempre visibile durante il gio¬ 
co il tuo punteggio e il numero delle costruzio¬ 
ni ancora in piedi. 


280 IFPEEK (BL(X) ) O30AND (BL (X) ) < 

1864THEN390 

290 POKKBL(X)>32 :IFF(X)-1THENBL( 

X) -BL(X)-40 

300 IFBL(X)>1304THEN320 

310 BL(X)-BS(X):F(X)-0 

320 POKEBL(X),30:NEXTX 

330 SR-0:FORY«1864TO1902:IFPEEK( 

Y) >90THENSR«SR+1 

340 NEXTY:PRINT"(HOME)(<2>]PUNTE 
GGIO{ 2 SPAZI):"DD:PRINT"COS 
TRUZIONI:"STK$(SK)+"{SPAZI)" 

350 IFSK<1THEN4 30 
360 GOTOl70 

370 SO-54272:FORZ-SOTOSO+24:POKE 
Z, 0 : NEX'X’Z : POKESO+ 5,15: POKESO 
4-6,15: POKEsn+24,15 
380 POKBSO+1 ,3: POKESO, 2 POKESO. 

+4,129:M(X)-0:GOTO2 50 
390 SO-54272:FORZ-SOTOSO+24:POKE 
Z,0 :NEXTZ:POKESO+5,15 :POKESO 
4-6,1 5 : POKESO + 2 4 , 1 5 
400 POKES04-1,5: POKESO, 235: POKESO 
+4,129:FORY-0TO8:POKEBL(X)+E 
L(Y),EC(Y) 

410 POKE54272+BL(X)+EL(Y),7:NEXT 
Y: FORT-1TO50:NEXTT:DD-DD+SR 
420 FORY-0TO8:POKEBL(X)+EL(Y),32 
:POKE54272+BL(X)+EL(Y),1:NEX 
TY:GOT0310 

430 PRINT"(HOME){ 7 GIU'} 

{ 8 SPAZI)****CITTA'DISTRUTT 
a *«**» ;PR IMT:PRINT 
440 FORT-lTO2000:NEXT:POKEl98,0: 
PRINT"{ 8 SPAZI}PREMI UN TAS 
TO QUALSIASI " 

445 PRINTTAB(12)"PER RICOMINCIAR 
E" 

450 GETQ$:IFQ$-""THBN450 
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460 GOTO120 

470 A$ * " {HOME}{ 21 GIU'}" 

480 FORX-0TO7:READEL(X),EC (X): NE 
XT 

490 BS(1) -191 3 :BS( 2) «1922 :BS Ol¬ 
issi :M*90:1*30 

500 PRINT" {CLR} M TAB (16); "DEFBNCB 
"sPRINTsPRINT" DIPENDI LA CI 
TTA 1 CON I TUOI MISSILI" 


510 PRINTSPRINT" PREMI I PULSANT 
I 1-3 PER LANCIARLI•"SPRINT 

520 PRINT" PER INIZIARE PREMERE 
UN TASTO QUALSIASI" 

530 GETQ$ sIFQ$*""THBN530 
540 RETURN 

550 DATA-41,85,-40,66,-39,73,-1 , 
67/0,91,67,39,74,40,66,41,75 


Arrivano i pompieri 



I pompieri hanno ancora lavoro. In città un 
grattacielo va a fuoco, e bisogna salvare gli sfor¬ 
tunati inquilini che si gettano dalle finestre per 
evitare le fiamme. Tu sei appunto al comando 
degli uomini che trasportano il telone di salva¬ 
taggio. 

Usando i tasti O e P la tua squadra corre ri¬ 
spettivamente a sinistra e a destra, mentre con 


120 GOTO920 
150 K»PEEK(197) 

160 IPK064THEN1 80 
170 PORDE-lTOl75:NEXT 
180 OC«PC 

190 IFK-62ANDF06THENPC-FC-1 
200 IPK-9ANDFC<33THENFC-FC+1 
210 IPK-38ANDP08THENFC-PC-3 
220 IPK«4lANDFC<32THENPC-FC+3 
230 IPOC*FCTHEN340 
240 REM STAMPA POMPIERE 
250 F0RJ-1948T01980 
260 POKEJ/32 
270 NEXTJ 

280 POKEl943+PC,37 
290 POKE56215+FC,6 
300 POKEl944+FC,39 
310 POKE56216+FC» 7 
320 POKEl945+FC,38 
330 POKE56217+FC,6 
340 RETURN 
350 REM 

360 IFJP*1THEN450 

380 CL*INT(RND(0)* 18)+9 

390 RW-TW 

400 S3-35:CT-8 

410 JP-1 

420 NC-NC+1 


QeWi tuoi uomini camminano nelle due stes¬ 
se direzioni. Dato che il fuoco si muove verso 
il basso, hai sempre meno tempo a disposizio¬ 
ne per spostare il telone e raccogliere coloro 
che cadono. Devi salvare il maggior numero 
possibile di persone, ma ricordati che se perdi 
10 inquilini il gioco finisce e la tua camera di 
pompiere subisce un declassamento. 


430 IFNC/SOINT (NC/5) THEN450 

440 GOSUB790 

450 RW-RW+1 

460 IPRW<>24THEN580 

470 REM 

480 LS-LS+1 

490 POKES+1,10:POKES+4,33 
500 POKEl984+CL,41 
510 POKE56256+CL,2 
520 JP-0 

530 PRINT"{HOME}"TAB(29) LS 

540 GOSUBl690 

550 POKES+4,0 

560 IFLS-10THEN1650 

570 GOTO760 

580 POKE(RW-1)*40+CL+l024,S3 
590 POKE(RW-1)"40+CL+55296,CT 
600 S3 s PEEK(RW*40+CL+l024) 

610 CT-PEEK(RW*40+CL+55296) 
620 POKES+1,240/RW:POKES+4,83 
630 POKERW*40+CL+l024,40 
640 POKERW*40+CL+55296,5 
650 IFRWO23THEN760 
660 POKERW*40+CL+l024,S3 
670 POKERW*40+CL+55296,CT 
680 IFFCOCLTHKN760 
700 SV-SV+1 

710 POKES+1,52:POKKS+4,83 
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720 POKEl944+FC,39 
730 POKE562164PC»7 
740 JP-0 

750 PRINT"(HOME}"TAB(11)SV 

760 POKES+4,0 

770 RETURN 

790 TW-TW+2 

800 RW-RW+2 

810 IPTW>22THENl470 

820 FORJ-7TG31 

830 POKES+ 1,60: POKES+4,129 

840 POKE(TW-3)«40+J+1024,32 

850 POKE(TW-2)*40+J+1 024,32 

860 POKE(TW-1)*40+J+l024,36 

870 POKE(TW-l)*40+J+55296,2 

880 POKES+4,0 

890 NEXTJ 

900 RETURN 

920 POKE55,0 :POKE56,56 
930 PRINTCHRS(142) 

940 POKE56334,PEEK(56334)AND254 

950 POKE1,PEEK(1)AND251 

960 FORJ-0TO511 

970 POKEJ+1 4 336 ( PEBK (J+53248) 

980 NEXTJ 

990 POKE1,PEEK(1)OR4 
1000 POKE56334,PEEK(56334)ORI 
1010 POKE53272,(PEEK(53272)AND24 
0)4-14 

1020 PORJ“l4608TO14671 
1030 READ B 
1040 POKBJ,B 
1050 NEXTJ 

1060 DATA255, 255,255,255,255,255 
,255,255 

1070 DATA255,129,129,129,129,129 
,129,255 

1080 DATA0,0,145,170,223,235,255 
,255 

1090 DATA48,120,48,124,179,49,72 
,204 

1100 DATAI 2,30,12,62,205,140,1 8, 
51 

1110 DATA0,0,0,0,0,0,129,255 
1120 DATA56,56,145,125,56,56,40, 
68 

1130 DATA0,0,0,1,56,254,120,48 
1140 S-54272 

1150 PORL*STOS+23:POKEL,0:NEXT 
1160 POKES+24,15: POKES+6,240 
1170 PRINT"{CLR}" 

1180 POKE53280,0 

1190 POKE53281,0 

1200 POKE646,1 

1210 PC-6:OC-6:TW-7 

1220 REM 

1230 KOKK-6T022 

1240 l’OKKK*40 » 1 0 11 , 14 

1250 POKKKMO + 55 J03.8 

1260 NEXTK 

1270 P0RK-6T022 

1280 POKEK*4041055,34 


1290 POKER*40+55327,8 
1300 NEXTK 

1310 PORJ-6T022STEP2 
1320 PORK-8T03U 
1330 POKEJ*40+K+1 024,35 
1340 POKEJ*40+K+55296,8 
1350 NEXTK,J 
1360 F0RJ-7T021STEP2 
1370 FORK-8TO30 
1380 POKBJ*40+K+1024,35 
1390 POKEJ*40+K+55296,8 
1400 NEXTK,J 

1410 PRINT"{HOME}"TAB(3)"SALVATI 
: "SPC(ll)"PERSI: " 

1420 GOSUB280 
1430 GOSUBl50 
1440 GOSUB360 
1450 GOTO1430 

1470 POKES+1,33:POKES+4,83 

1480 GOSUBl690 

1490 POKES+1,45 

1500 GOSUBl690 

1510 POKES+1,36 

1520 GOSUBl690 

1530 POKES+1,50 

1540 GOSUBl690:GOSUBl690 

ISSO POKES+4,0 

1560 FORJ-lTOl3:PRINT"{GIU , }":KE 
XT 

1570 PRINT"CONGRATULAZIONII 
(GIU'}" 

1580 PRINTSTRS(SV)" VITE SALVATE 
.(GIU'}" 

1590 GOTO!720 
1610 PORJ-lOOTOl5STEP-5 
1620 POKES+1,J:POKES+4,83 
1630 FORDE«lTO50:NEXT 
1640 NEXTJ 
1650 POKES+4,0 

1660 FORJ«lTOl3:PRINT"{GIU'}":NE 
XT 

1670 PRINT"10 VITE PERSE - SEI R 
ETROCESSO DI GRADO 1" 

1680 GOTOl720 
1690 FORDE-1TO250 
1700 NEXTDE 
1710 RETURN 
1720 FORJ-1TO10 
1730 GETGAS 
1740 NEXTJ 

1750 INPUT"PROVI ANCORA";Q$ 

1760 IPQ$“"N"THENl790 
1770 SV-0:LS-0:NC-0 
1780 GOTOl170 
1790 POKE49152,0 
1800 SYS49152 
1819 END 
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prima rivista europea 



A Milano, 

in via Mascheroni 14. 

la prima software 
lineria itaiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON. 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 


7BL 02-437385 


Vieni a trovarci: ti aspettiamo. 







La stanza del robot 


# 



Mentre stavi lavorando al tuo nuovo supervi- 
deoffoco nella tua fabbrica di computer games, 
sei incatuamente entrato, sfortuna delle sfor¬ 
tune. nella peggior stanza in cui potevi capita¬ 
re: nella stanza dove si tengono rinchiusi i ro¬ 
bot impazziti. Unica via di salvezza è raggiun¬ 
gere una delle 3 uscite, impresa alquanto dif¬ 
ficile perché sebbene pazzi, i robot non sono 


100 REM LA STANZA DEI ROBOT 
110 GOSUB510 

120 JY-PEEK(56321):JY=15-(JY AND 
1 5) : K-PEEM1 97) :J*PEEK(653) 

: AL*L 

130 POKEL,32:IPJY-l0RJY«S0RJY-90 
R ( K* 7 ANDJ“1)THENAL*AL-4 0 
140 IPJY-2ORJY-6ORJY-10OR(K-7AND 
J«*0 ) THENAL*AL+40 
150 IF(JY>3ANDJY<7)OR(K-2ANDJ-l) 
THENAL-AL-1 

160 IFJY>7OR(K-2ANDJ-0)THKNAL«AL 
♦ 1 

170 IPPEEK(AL)<>160THENL»AL 
180 IPPEEK(L)«RTHEN300 
190 IPPEEK(L)-46THEN440 
200 POKEL,I:LY-INT((L-S)/40): LX- 
L-S-LY‘40 

210 FORX*lT03:M“R(X):POKEM,32 
220 RY«INT((M-Sl/40):RX*M-S-RYM 
. 0 

230 IPRX<LXAND(PEEK(M+l)«320RPEE 
K (M+l ) * I ) THENM*M+1 
240 IFRX>LXAND(PEEK(M-1)«320RPEE 
K(M-1)-I)THENM*M-1 
250 IPRY>LYAND(PEEK(M-40)“320RPE 
EK(M-40)*1)THENM*M-40 
260 IPRY<LYAND(PEEK(M+40)“320RPE 
EK(M+40)-I)THBNM-M+40 
270 R(X)-M:POKEM,R 
280 IFM-LTHEN300 
290 NEXTX:GOTOl20 
300 REM CATTURA 

310 SO*54272 :PORX*0TO24:POKESO+X 
,0 :NEXTX 

320 POKESO+14,5:POKESO+18,16:POK 
ESO+3,1:POKESO+24,143 
330 POKESO+6,240:POKESO+4,65 
340 POKE53280,2:P1*5389:PORX*OTO 
119:P*P1+PBBK(SO+27)*3.5 
350 H-INT(F/256):L-F-H*256 


certo stupidi e ti inseguono tramando vendet¬ 
ta verso il loro signore e creatore. L'unico van¬ 
taggio che possiedi rispetto a loro è che tu puoi 
passare attraverso gli schermi elettronici, rap¬ 
presentati da pallini neh, di cui la stanza è pie¬ 
na. mentre i robot no. 

Per giocare usa il joystick (porta I ) oppure i 
tasti di controllo cursore. 


360 IPINT(X/l0)/2*INT(INT(X/l0)/ 
2) THENPOKE53280,2:POKE53281 , 

2 

370 IPINT(X/10)/2<>INT(INT(X/l0) 
/2)THENPOKE53280,14:POKE5328 
1.11 

380 POKESO,L:POKESO+1,H:NEXTX 
390 POKESO+24,0 
400 FORX-1TO2000:NEXTX 
410 PRINT"{CLR}":PRINTS PRINT 
420 PKINTTAB(IO)"SEI STATO CATTU 
RATO" :PRINT S PRINT l PRINT 
430 UOTU48U 
440 REM SAKE 
450 PORX*1T02000SNEXTX 
460 PRINT"(CLR)":PRINT:PRINT 
470 PRINTTAU(15)"HAI VINTOl":PRI 

NT:PRINT 

480 POKEl 98,0:PRINTTAB(5)"VUOI G 
IOCARE DI NUOVO (S/N)";:INPU 
TQ 9 

490 IFLEFTS(Q$,1)*“S"THENl10 
500 SYS2048 

• 510 PRINT"(CLR){BLK)":POKE53281, 

1 1 

520 PRINTTAB(9);"{RVS) LA STANZA 
DEI ROBOT ":PRINT 
530 PRINT"MENTRE STAVI PACENDO U 
N LAVORO COME" 

540 PRINT"COLLAUDATORE DI COMPUT 
ER GAME , HAI{ 7 SPAZI)COMMESS 
O UN ERRORE...":PRINT 
550 PRINT"SEI ENTRATO NELLA STAN 
ZA DEI ROBOT." 

560 PRINT"NON SEI IL BENVENUTO." 
:PRINT 

570 PRINT"USA UN JOYSTICK O I PU 
LSANTI [CRSR] PER" 

580 PRINT"CORRERE AD UNA DELLE P 
ORTE"SPRINT 
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590 PRINT"SCRIVI LA TUA PRIMA IN 
IZIALE." 

600 GETI$sIFI$-""THEN600 
610 IFASC(1$)< 650RASC(1$)>90THEN 
600 

620 PRINT"EVITA I ROBOT ({RVS)R 
{OFP))."SPRINT 

630 PRINT"L*UNICO VANTAGGIO B'CH 
E TU PUOI PASSARE"; 

640 PRINT" ATTRAVERSO I PALLINI 
NERI E I ROBOT NO."SPRINT 
650 PRINT"PREMI UN TASTO QUALSIA 
SI PER INIZIARE" 

660 GETQ$sIPQ$-""THEN660 
670 PRINT"(CLR)"SPRINT"{BLK} 
{RVS}{ 37 SPAZI)" 

680 FORX-1T09SPRINT" (RVS) ";TAB 
(37);"{RVS) "SNBXTXSPRINT"." 


;TAB(37) 

690 FORX-1TO9SPRINT" (RVS) ";TAB 
(37);"(RVS) "SNBXTX 

700 PRINT" (RVS){ 18 SPAZI)(OFF) 
.{RVS){ 18 SPAZI)" 

710 S-1106sB-81sR-146sI-ASC(I$)- 
64 

720 BX-150 

730 FORX-55296TO56295sPOKEX,0sNE 
XTX 

740 FORX-OTOBXsPOKBS+40*INT(RND( 
8)*19)+INT(RND<8)*35),BsNEXT 
X 

750 R(l)-1428sR(2)-1458sR(3)-176 
4sL-S+18 

760 FORX-lT03sPOKER(X),RsNEXTXsP 
OKEL,I 

770 RETURN 


Spionaggio 



Sei un agente segreto con licenza di uccidere, 
c il tuo compito è proprio quello di far fuori tutte 
/>■ spie nemiche che ti capitano a tiro. Stai at¬ 
tento però: come tutti gli 007 che si rispetta¬ 
no. tu fai il doppio gioco, anzi il triplo o qua¬ 
druplo e chi più ne ha più ne metta! Per cui, 
se non guardi bene prima di sparare, rischi di 
uccidere uno dei tuoi momentanei alleati. Nel 
gioco ciò è rappresentato dal fatto che il tuo 


10 POKE53281,0sPOKE53280,0sPRINT 
"(CLR){ YEL){ 2 GIU") 

( 14 SPAZI)(RVS) SPIONAGGIO " 

15 PRINT"{ 9 GIU')" 

20 V-53248sPOKEV,180sPOKEV+l,200 
sPOKE2040,192 :POKEV+39,6sPOKB 
V+47,1 

25 POKB2041,192sPOKE2042,1 92sPOK 
£2043,192 s POKE2044,193 S POKE20 
45,193 SPOKE2046,193 

30 FORICI2288TO!2350 sREADQs POKEI 
,Q:NEXT 

40 F0RI-12352T012414sREADQsPOKEI 
,QsNEXT 

50 POKE2047,194 sFORI*12417T01247 
8 s POKEI,0 s NEXT 


colore cambia continuamente, e devi evitare 
di colpire una spia del tuo stesso colore. 

Hai un minuto a disposizione: guadagni 50 
punti per ogni agente nemico eliminato, ma ne 
perdi 150 se fai fuori uno dei tuoi uomini. Con 
i tasti Q e Z ti muovi su e giù, mentre con I 
e P spari a sinistra e a destra. Se riesci a non 
uccidere nessuna spia alleata puoi giocare per 
altri 60 secondi. 


55 POKEI2416,240sPOKEI2419,240 
60 FORI>49152T049369 sREADQs POKEI 
,Q S NEXT 

70 TL-60SPRINT"( 5 SPAZI)HAI A D 
ISPOSIZIONE"TL"SECONDI 
( 4 GIU 1 )" 

90 PRINT"( 6 SPAZI)PREMI UN TAST 
O PER INIZIARE" 

95 GETX$sIFX$-""THEN95 
100 PRINT"(CLR)"sF0RI-lT023sPRIN 
TTAB(19)"(<4>)(<->] 

( 2 SPAZI)[<->)"sNEXTsPRINT" 
(YEL)(HOME)";sGOSUBl000 
110 PC-6 

120 FORI*lT03sPOKEV+2*!,50sNEXTs 
F0RI m 4T06 sPOKEV+2*I,30SNEXTs 
POKEV4-1 6,112 
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130 POKEV/180 :POKEV+1,150:POKEV+ 
39,6 :POKEV+21,1 
150 TI$-"000000" 

160 POKEV+15,150:GOSUB305 
200 SYS(49152) 

210 SYS(49182) 

220 OS-PEEK(V+21):IF(OSAND128)<> 
0THENGOSUB500:POKEV+30,0 
230 GOSUB300:IP(PEBK(V+30)AND1 26 
) OOTHENGOSUB305 
250 GOSUB1100:IFTI/60>TLTHEN900 
260 GOTO200 

300 IFRND(1)<.95THENRETURN 
305 Y«PEEK(V+l5)-30+INT(RND(1)*6 
0):IFY>230ORY<35THENRETURN 
310 I-RND(l):IFI<.2THENPC-2:GOTO 
330 

312 IFI<.6THEN335 

315 IPI<.8THENPC»6:GOTO330 

320 PC-8 

330 POKEV+39,PC :IFRND(1)<.5THEN3 
60 

335 IFRND(1)<.5THEN345 

340 POKEV+3,Y:POKEV+40,2 :POKEV+2 

1 ,PEEK(V+21)OR2: RETURN 

345 POKEV+ 3,Y:POKEV+ 5,Y-35:POKEV 
+7,Y+25 

350 FORI“1T03:K«RND(1):IFK<.3THE 
NPOKEV+39+1,2 s G0T0358 

352 IFK<.6THENPOKEV+39+1,8:GOTO3 
58 

354 POKEV+39+I,6 

358 NEXT:POKEV+21,PEEK(V+21 JORI 4 
: RETURN 

360 IFRND (1 X.5THEN385 

365 POKEV+9,Y:POKEV+43,2:POKEV+2 
1,PEEK(V+21)ORl6:RETURN 
385 POKEV+9,Y:POKEV+11,Y-30:POKE 
V+l3,Y+25 

390 FORI“4T06:K“RND(1):IFK<.3THE 
NPOKEV+39+1,2:G0T0396 
392 IFK<.6THENPOKEV+39+I,8:G0T03 
96 

394 POKEV+39+I,6 

396 NEXT:POKEV+21,PEEK(V+21)ORI 1 

2 s RETURN 

500 CO“PEEK(V+30):X«PEEK(V+l 4)+2 
*(PEEK(V+l6)AND128) 

505 IFX>200THEN550 
510 POKEV+13,PEBK(V+l3)+1:HT-0:F 
ORI-1T03:IF(COAND2EI)«2EITHE 
NHT»I 
515 NEXT 

517 IFHT-OTHENPOKEV+21,PEEK(V+21 
)AND127:RETURN 

520 IFPC*(PEEK(V+39+HT)AND15)THE 
NSC«SC-200:NK»NK+1:GOSUBl200 

525 SC«SC+50:GOSUBlOOO:POKEV+21, 
PEEK(V+21)AND(127-2EHT) 

530 RETURN 


550 POKEV+13,PEEK(V+l3)-1:HT«0:F 
0RI«4T06:IF(C0AND2EI)-2EITHE 
NHT-I 
555 NEXT 
560 GOTO517 

900 POKEV+21,0:PRINT"(CLR){YEL} 

{ 2 GIU'H 15 SPAZI}FINE GIO 
CO":PRINT"{ 7 GIU'}" 

910 PRINT"{ 8 SPAZI}IL TUO PUNTE 
GGIO E'"SC"{ 2 GIU’}" 

920 IFNK<>0THENPRINT"( 3 SPAZI) 
MA HAI UCCISO"NK"DEI TUOI UO 
MINIll":ER“1:GOT0935 

930 PRINT"OTTIMO LAVOROl - NON H 
AI UCCISO NESSUNO 
{ 18 SPAZI}"; 

933 PRINT"{GIU'}DEI TUOI UOMINI. 

N 

935 IFER-0THENPRINT"{ 2 GIU’}HAI 
VINTO UN GIRO EXTRA 1l":FORT 
■1T04000:NEXT:ER*1:GOTO100 
950 GETX$:TFXS-”"THENPRINT" 

{ 2 GIU'}":END 
960 GOTO950 

1000 FORI«l913T01917 :POKEI,32:NE 
XT 

1005 PRINT"(<5>)l 24 GIU’}PUNTI: 

{ 6 SPAZI)( 5 SIN}"SC" 
{HOME}"; 

1010 RETURN 

1100 PRINT"TEMPO: "INT(TI/60>" 
{HOME}"; 

1110 RETURN 

1200 PRINT"{HOME}HAI SPARATO A U 
NO DEI TUOI UOMINI 11(HOME)" 

? • 

1210 FORT»1T02500:NEXT 

1220 PRINT"{ 40 SPAZI}{HOME}-; 

1230 RETURN 

10000 DÀTA0,96,0,0,240,0,0,240,0 
,0,97,0,0,65,128,0,255/248 
,1,255,128,1,243,0 
10010 DATAI,254,0,0,236,0,0,228, 
0,1,224,0,1,224,0,1,254,0, 
0,254,0,0,198,0 

10020 DATA0,198,0,0,198,0,0,198, 
0,63,199,0,48,7,0 
10030 DATA0,12,0,0,30,0,0,30,0,1 
,12,0,3,4,0,63,254,0,3,255 
,0,1,143,0 

10040 DATA0,255,0,0,111,0,0,14,0 
,0,15,0,0,15,0,0,255,0,0,2 
54,0,0,198,0 

10050 DATA0,198,0,0,198,0,0,198, 
0,0,199,248,1,192,24 
10100 DATA165,197,201,62,208,10, 
56,173,1,208,233,6,141,1,2 
08,96,201,12,208 

10110 DATA251,24,173,1,208,105,6 
,141,1,208,96 
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10200 

DATAI 65,197,201 

,33 

,208 

,67, 


169,193,141,248 

,7, 

169, 

160, 


141,14,208,173, 

16 



i 021 0 

DATA208,41,127, 

141 

,16, 

208, 


173,1,208,141,1 

5,208,1 

73,2 


1,208,9,128,141 




10220 

DATA21,208,32,1 

96, 

192, 

56,1 


73,14,208,233,2 

,141,14 

,208 


,173,30,208,41, 

128 



10230 

DATA208,15,173, 

14, 

208, 

201 , 


2,176,230,173,21,208,41,12 


7,141,21,208,96 




10240 

DATA201,41,208, 

251 

,169 

,192 


,141,248,7,169,210,141,14, 

208,173,16,208,41 


10250 DATA127,141,16,208,173,1,2 
08,141,15,208,173,21,208,9 
,128,141,21,208,32 
10260 DATAI 96,192,24,173,14,208, 
105,2,141,14,208,173,30,20 
8,41,128,208,200 

10270 DATA173.14,208,201,2,176,8 
,173,16,208,9,128,141,16,2 
08,173,14,208,201 
10280 DATA70,144,215,173,16,208, 
41,128,240,208,173,21,208, 
41,127,141,21,208 
10290 DATA96,162,0,232,208,253,1 
73,24,212,208,6,169,15,141 
,24,212,96,169 
10300 DATAO,141,24,21 2,96 
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L’artificiere 


£ arrivata una telefonata anonima alla poli¬ 
zia: ce una bomba ad orologeria nascosta in 
un edificio con un milione di stanze! L'unica 
persona in grado di trovarla e disinnescarla sei 
tu: hai a disposizione 250 secondi (ogni tenta¬ 
tivo vale IO secondi) per scoprire dove è na¬ 
scosta. Per aiutarti possiedi un "Bomb Detec¬ 
tor ", ultima trovata tecnologica americana, il 
cui contatore segna un numero sempre più pros¬ 
simo a 10000 al tuo avvicinarti all'ordigno. Devi 
determinare la posizione della stanza scriven¬ 
do un valore tra 0 e 99 per ciascuna delle coor- 


100 REM ARTIFICIERE 
110 PRINT"(CLR)STAI PER ACCETTAR 
E UNA MISSIONE MOLTO 
{ 3 SPAZI}PERICOLOSA." 

120 PRINTSPRINT"IN UNA TORRE CON 
UN MILIONE DI STANZE E'NASC 
OSTA UNA BOMBA." 

130 PRINT:PRINT"TROVA LA STANZA 
DETERMINANDO:LUNGHEZZA, LARG 
HEZZA E ALTEZZA(0-99)" 

140 PRINT"UNA {RVS)**lOFF} MOSTR 
A UNA VALORE CORRETTO.":PRIN 
T 

150 PRINT"HAI 250 SECONDI PER TR 
OVARE LA BOMBA{ 4 SPAZI}ALTR 
IMENTI ESPLODERÀ*."SPRINT 


dinate lunghezza, larghezza e altezza. Un va¬ 
lore corretto viene visualizzato da un doppio 
asterisco al posto del numero. 

Se non trovi la bomba entro 250 secondi, essa 
esplode. Se la trovi, però, hai solo 100 secondi 
per disinnescarla: scegli i 3 numeri della com¬ 
binazione (adesso compresi tra I e IO) allo 
stesso modo di come prima hai determinato 
le coordinate. Se vi sono delle complicazioni, 
non preoccuparti: le condoglianze verranno im¬ 
mediatamente recapitate ai tuoi parenti e amici 
più intimi! 

160 PRINT"IL TUO CONTATORE DARA* 
UN VALORE SEMPRE" 

170 PRINT"PIU*VICINO AL 10000 MA 
N MANO CHE TI { 5 SPAZI }AWIC 
INI." 

180 PRINT"DOPO AVERLA TROVATO HA 
I 100 SECONDI PER DISINNESCA 
RLA. " 

190 PRINT:PRINT"PER PARTIRE PREM 
I UN TASTO QUALSIASI."SPRINT 

200 GETQ$:IFQ$-""THEN200 

210 Sl-36878:S2-36877 

220 A-INT(RND(8)*100):B«INT(RND( 

8)*100):C“INT(RND(8)*100) 

230 PRINT"(CLR)":S“10 
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240 PRINT"{HOME}{ 8 GIU'JO 
{ 2 SPAZI}1{ 2 SPAZI}2 
{ 2 SPAZI)3{ 2 SPAZI)4 
{ 2 SPAZI}5{ 2 SPAZI}6 
{ 2 SPAZI)7( 2 SPAZI)8 
{ 2 SPAZI}9{ 2 SPAZI}10” 

250 PRINT"(HOME)( 9 GIU'jQ 
{ 2 R) + ( 2 R)+{ 2 R} + 

{ 2 R)+{ 2 R)+{ 2 R)+ 

{ 2 R)+{ 2 R)T{ 2 R)+ 

{ 2 R)W":PRINT 
260 PRINT"Q{ 2 E) + ( 2 E}+ 
l 2 E)+{ 2 E}+{ 2 E)+ • 

{ 2 f)+{ 2 E)+{ 2 !)+ 

{ 2 E) + ( 2 E)N":PRINT 

270 print”T io Spazi)bomb dbtbct 
or(home)" 

280 PRINT" L{ 3 SPAZI} W 

{ 3 SPAZI}H( 3 SPAZI}TEMPO 
{ 2 SPAZI)CONTATORE"SPRINT 
290 IFA-LTHEN330 

300 PRINT"(HOME){ 5 GIU')":INPUT 
"LUNGHEZZA(L)";L 
310 PRINT"{HOME){ 6 GIU') 

( 19 SPAZI)":IFL>99ORL<0THBN 
300 

320 PRINT"(HOME)( 3 GIU')"STR$(L 
)+• ■ 

330 IPB-WTHEN370 

340 PRINT"(HOME){ 5 GIU')":INPUT 
"LARGHEZZA(W)";W 
350 PRINT"(HOME)( 6 GIU') 

{ 19 SPAZI)":IFN>99ORN<0THEN 
300 

360 PRINT"(HOME){ 4 SPAZI) 

{ 3 GIU')"STR${*)+♦" " 

370 IFC-HTHEN410 

380 PRINT"(HOME){ 5 GIU')":INPUT 
"ALTEZZA(H)";H 
390 PRINT"(HOME){ 6 GIU') 

( 16 SPAZI)":IFH>99ORH<0THEN 
300 

400 PRINT"(HOME){ 8 SPAZI) 

{ 3 GIU')"STR$(H)++" " 

410 PRINT"(HOME){ 12 SPAZI) 

{ 3 GIU')"S 

420 PRINT"(HOME){ 10 GIU')";TAB( 
J)" " 

430 BE a 1B4-(ABS(A-L)+ABS(B-W)+AB 
8 (C-H))*29 

440 J-INT(BE/333.3333+.5)SPRINT" 
{HOME}{ 10 GIU'}"»TAB(J)" " 
450 PRINT"(HOME){ 19 SPAZI) 

{ 3 GIU'}"BE 

460 PRINT"(HOME){ 3 GIU’)"» 

470 IFA-LTHBNPRINTTAB(1)"(RVS}** 
(OFF)"» 

480 IPB-WTHBNPRINTTAB(5)"(RVS}«* 

(orr)"» 

490 IFC-HTHBNPRINTTAB(9)"{RVS}** 
(OFF)"» 

500 1FA-LANDB-HANDC-HTHBN550 


510 S«S+1OsIFS<260THEN290 
520 GOSUB900 

530 PRINT"LA BOMBA ERA AL:":PRIN 
T A»"{ 2 SPAZI)"»BJ" 

{ 2 SPAZI)";C 
540 END 

550 PRINT"(CLR){ 9 GIU') 

( 13 SPAZI)(RVS)BOMBA TROVAT 
A(OFF)" 

560 V*INT(RND(8)*10)+1:N“INT(RND 
(8)*10)+1:M“INT(RND(8)*10)+1 

570 FORTT-1T02000:NEXT 
580 PRINT"(CLR)HAI TROVATO LA BO 
MBA MA NON HAI ANCORA 
{ 2 SPAZI)FINITO."SPRINT 
590 PRINT"DEVI ANCORA TROVARE LA 
COMBINAZIONE! 5 SPAZI)CORRE 
TTA PER DISINNESCARLA."sPRIN 
T 

600 PRINT"OGNI PARTE E'FORMATA D 
A UN NUMERO(1-10) (RVS)** 
(OFF) - CIFRA CORRETTA." 

610 PRINTSPRINT"BUONA FORTUNA. H 
AI SOLO 100 SECONDI" 

620 FORTT-1T04000sNEXTTT 
630 PRINT"(CLR)"sS-10 
640 PRINT" SINISTRA DESTRA 

( 3 SPAZI)SINISTRA TEMPO":PR 
INT 

650 IFA-VTHEN690 

660 PRINT"(HOME){ 5 GIU')":INPUT 
"SINISTRA";A 

670 PRINT"(HOME)( 6 GIU'} 

( 16 SPAZI)":IFA>10ORA<lTHEN 
660 

* 680 PRINT"(HOME)( 3 GIU')"A 
690 IFB-NTHEN730 

700 PRINT"(HOME)( 5 GIU')":INPUT 

"nRQTRl"•R 

710 PRINT"(HOME)( 6 GIU') 

( 13 SPAZI)":IFB>10ORB<lTHBN 
660 

720 PRINT"(HOME)( 9 SPAZI) 

( 3 GIU')"B 
730 IFC-MTHEN770 

740 PRINT"(HOME)( 5 GIU')":INPUT 
"SINISTRALO 

750 PRINT"(HOME)( 6 GIU') 

( 16 SPAZI)":IFC>10ORC<lTHBN 
740 

760 PRINT*(HOME){ 18 SPAZI) 

( 3 GIU')"C 

770 PRINT"(HOME){ 27 SPAZI) 

( 3 GIU')"S 

780 PRINT"(HOME){ 3 GIU'}"» 

790 IFA*VTHBNPRINTTAB(1)"(RVS)** 
(OFF)"» 

800 IFB-NTHENPRINTTAB(10)"(RVS}*' 
"(OFF)"» 

810 IFC-MTHBNPRINTTAB(19)"(RVS}« 
"(OFF)"» 


IN TUTTE LE TASCHE... 



rii AHC 




Dentro e fliori Ti scatoU 


DI PERSONAL COMPUTER 
la "Biblioteca” firmata dagli esperti 
Grappo Editoriale Jackson 



























PER TUTTE LE TASCHE 





COMPUTER 


L'informatica di baso 


monografìa indirizzati a 

responsione 

avventurosa del mondo del 


CHI INIZIA 


DISPONIBILI 

• VIVERE COL PERSONAL 
COMPUTER 


DENTRO E FUORI LA 
SCATOLA 


OGNI MESE 
IN EDICOLA 


VOLUMI 
A SOLE LIRE 


CIASCUNO 


tutto quel che c'è da sapere 
suOTnxormatka. le sue a ppl ica ilo n i. 
le sue prospettive. 













































820 IFA-VANDB-NANDC-MTHEN880 
830 S-S+10:IFS<110THEN650 
840 GOSUB900 

8S0 PRINT"LA COMBINAZIONE ERA":P 
RINT V;" ";N?" ";MsPRINT 

860 PRINT"SARANNO MANDATE LE CON 
DOGLIANZE ALLA TUAFAMIGLIA" 

870 END 

880 PRINTSPRINT:PRINT" 

{ 5 SPAZI)BOMBA DISINNESCATA 

N 

890 END 

900 K-S3281 .-POKER-1,2:POKB53281 , 
7 :PRINT"(CLR)(WHT) 


{ 10 GIU 1 ){ 13 SPAZI)* * * KABO 

Q|f***« 

910 S-54272:FORL"STOS+24:POKEL,0 
SNEXT 

920 POKES+5,15:POKES+6,15:POKES+ 
24,15 

930 POKES+1 , 5 : POKES, 235 : POKES+4 , 
129:POKES+4,128 

940 F0RX-1T099:IF(PEEK(K)AND15)- 
7THENPOICEK, 2 : GOTO960 
950 POKER,7 

960 FORT"1T04 4 :NEXTT,X 
970 POKER-1,14:POKER,6 
980 RETURN 

READY. 


Per ricevere gli arretrati di compilare il seguente tagliando: 


J soft 


Compilare ed inviare in busta chiusa a: 
viale Restelli, 5-20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 

Indirizzo 


CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

Anno - 

a L. 2.000 cad. per un totale di L . a mezzo 

□ assegno allegato □ contanti allegati 
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tesond-Ql’C/Bit/Bsrsonal Software 

sono pubblcazicxii firmate: 

GRUPPO EDITORIALE JACKSON 

via Rasoini,12-20124 MJano 


Dalla grande edicola 

Jackson 

utfo sul personal 

computer 


L'architetto 
di fronte 
alKlnfoffliatteo 

Unix per M 24 


L'archivio toccabile. 


Spedale 

Madntosh 

HP-110 contro 
D.Oe 


MTX-512 
Softectx Super 


Tech Sktekkk 


Banche dati: è nostrana 
la più grande d'Europa 

Il reddHometro con VlsiCak 


Ah più potenza 
sulla • ' ' 


scrivania 
Autocad: Il tecnigrafo 
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